home *** CD-ROM | disk | FTP | other *** search
/ Your Mobile: Alcatel / Alcatel 2005.iso / Alcatel One Touch 715 / data1.cab / Creation_Studio_Data / csGraph.dxr / 00109_fond slider anim.ls < prev    next >
Encoding:
Text File  |  2002-06-21  |  1.3 KB  |  55 lines
  1. property pIdx, isSlider
  2. global gListeAnimSelect, gMinTempo, gFormat
  3.  
  4. on beginSprite me
  5.   cacheSliderAnim(me)
  6.   isSlider = 0
  7.   if sprite(me.spriteNum).member.name contains "btn" then
  8.     isSlider = 1
  9.   end if
  10. end
  11.  
  12. on cacheSliderAnim me
  13.   sprite(me.spriteNum).visible = 0
  14. end
  15.  
  16. on afficheSliderAnim me, pos, idx
  17.   dec = 0
  18.   if isSlider then
  19.     dec = 5
  20.     sprite(me.spriteNum).locV = 423 - gListeAnimSelect[idx].timing
  21.   end if
  22.   pIdx = idx
  23.   sprite(me.spriteNum).locH = pos[1] + (sprite(me.spriteNum).width / 2) + dec
  24.   sprite(me.spriteNum).visible = 1
  25.   updateStage()
  26. end
  27.  
  28. on mouseUp me
  29.   sendAllSprites(#cacheSliderAnim)
  30. end
  31.  
  32. on mouseLeave me
  33.   rct = sprite(me.spriteNum).rect
  34.   if (isSlider = 0) and ((rct[1] > the mouseH) or (the mouseH > rct[3])) then
  35.     sendAllSprites(#cacheSliderAnim)
  36.   end if
  37. end
  38.  
  39. on mouseDown me
  40.   if isSlider then
  41.     repeat while the mouseDown
  42.       sprite(me.spriteNum).locV = min(max(the mouseV, 330), 423 - gMinTempo)
  43.       if gFormat[3] = 4 then
  44.         repeat with i in gListeAnimSelect
  45.           i.timing = 423 - sprite(me.spriteNum).locV
  46.         end repeat
  47.       else
  48.         gListeAnimSelect[me.pIdx].timing = 423 - sprite(me.spriteNum).locV
  49.       end if
  50.       member("txt-slider").text = tic2sec(423 - sprite(me.spriteNum).locV)
  51.       updateStage()
  52.     end repeat
  53.   end if
  54. end
  55.